home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aae.d64 / file'exists.func < prev    next >
Text File  |  2007-02-28  |  182b  |  9 lines
  1. 9000 //
  2. 9010 FUNC FILE'EXISTS(FILENAME$) CLOSED
  3. 9020 DIM DS$ OF 2
  4. 9030 OPEN FILE 79,FILENAME$,READ
  5. 9040 DS$:=STATUS$
  6. 9050 CLOSE FILE 79
  7. 9060 RETURN DS$="00"
  8. 9070 ENDFUNC FILE'EXISTS
  9.